home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 February / Macworld (1999-02).dmg / Games World / SharewareGames / Xconq 7.2.2 / lib / standard.g < prev    next >
Text File  |  1998-05-22  |  3KB  |  107 lines
  1. (game-module "standard"
  2.   (title "Standard Game")
  3.   (blurb "The standard Xconq game, loosely based on WW II ca 1945")
  4.   (instructions "Take over the world before you get taken over!")
  5.   (variants
  6.     (world-seen false)
  7.     (see-all false)
  8.     (world-size (60 30 360))
  9.     (sequential false)
  10.     ("Mostly Land" mostly-land
  11.       (true
  12.         ;; Adjust so that sea is 20% instead of 70% of the world.
  13.         (add sea alt-percentile-max 20)
  14.         (add shallows alt-percentile-min 20)
  15.         (add shallows alt-percentile-max 21)
  16.         (add swamp alt-percentile-min 21)
  17.         (add swamp alt-percentile-max 23)
  18.         (add (desert plains forest) alt-percentile-min 21)
  19.         ))
  20.     ("All Land" all-land
  21.       (true
  22.         ;; Adjust sea and shallows out of existence, let swamp take all the low spots.
  23.         (add sea alt-percentile-min 0)
  24.         (add sea alt-percentile-max 0)
  25.         (add shallows alt-percentile-min 0)
  26.         (add shallows alt-percentile-max 0)
  27.         (add swamp alt-percentile-min 0)
  28.         (add swamp alt-percentile-max 2)
  29.         (add swamp wet-percentile-min 0)
  30.         (add swamp wet-percentile-max 100)
  31.         (add (desert plains forest) alt-percentile-min 2)
  32.         ;; Counterproductive to try to set up near water.
  33.         (add sea country-terrain-min 0)
  34.         ))
  35.     ("Large Countries" large
  36.      (true
  37.        ;; This is the same as country separation.
  38.        (set country-radius-max 48)
  39.        (add (town city) unit-growth-chance (100 20))
  40.        (add (town city) independent-growth-chance (20 0))
  41.        ))
  42.     ("Test" test
  43.      (true
  44.        ;; For testing.
  45.        (set unseen-image-name "question")
  46.        (include "libimf")
  47.        ))
  48.     ("Noisy" noisy
  49.  (true
  50. (set action-movies '(
  51.   (move (sound "pop"))
  52.   ))
  53.  
  54. (set event-movies '(
  55.   (side-lost (sound "thunder"))
  56.   (unit-captured (sound "chirr"))
  57.   (unit-completed (sound "chirr"))
  58.   (unit-moved (sound "pop 2"))
  59.   ))
  60.      ))
  61.     )
  62.   )
  63.  
  64. (include "stdunit")
  65.  
  66. (include "nat-names")
  67.  
  68. (include "town-names")
  69.  
  70. (add (* @) namer "random-town-names")
  71.  
  72. (set feature-types (("peak") ("lake")))
  73.  
  74. (include "ng-weird")
  75.  
  76. (namer generic-lake-names (grammar root 10
  77.   (root (or 5 (foo "Lake " generic-names)
  78.             1 (generic-names " Lake")
  79.             ))
  80.   (foo "")  ; works around a bug
  81.   ))
  82.  
  83. (set feature-namers (("lake" "generic-lake-names")))
  84.  
  85. (set advantage-min 1)
  86. (set advantage-default 1)
  87. (set advantage-max 5)
  88.  
  89. (scorekeeper
  90.   (title "")
  91.   (do last-side-wins)
  92.   )
  93.  
  94. (set scorefile-name "standard.xcq")
  95.  
  96. (add u* see-terrain-if-captured 10)
  97. (add town see-terrain-if-captured 50)
  98. (add city see-terrain-if-captured 100)
  99.  
  100. (table see-others-if-captured
  101.   (ship ship 50)
  102.   (base u* 10)
  103.   (town u* 20)
  104.   (town (town city) 100)
  105.   (city u* 100)
  106.   )
  107.